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WEST SIDE GROUP MEETS AT GETHSEMANE LUTHERAN CHURCH 
14560 MADISON AVE. LAKEWOOD, OHIO 7:30 FM. 
EVERY THIRD FRIDAY EACH MONTH (EXCEPT DECEMBER) 
CONTACT: DICK SIEG (216) 433-4387 


EAST SIDE GROUP MEETS AT THE EUCLID SQUARE MALL 
IN THE EUCLIDIAN ROOM 7:30 FM. 
EVERY FIRST FRIDAY EACH MONTH 
CONTACT: MAX SCHOENFELD (216) 371-1096 
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| Ashort note to our friends fron other nensletters and pagazines. You are welcone to use any of our paterial, news, adds, or prograas | 
YOUs (1) Tell where it cave from (RANTOP Cleveland, Ohio) and (2) The author's name that wrote the article. We mould appreciate it if 


you would sead us a copy of the newsletter that it appeared in! Unless otherwise notified ne will do the sane. 
THANK YOU FOR YOUR INTEREST IN OUR WEWSLETTER / 


THE TSU—-BBS IS ALIVE 


SYSOP:Chris Raynak PHONE:216-327-1899 PARAMETERS:8/2/N PASSWORD: sieg 
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T/S RESOURCES 
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news/rumors 
hardware software literature 
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Club News 


The T/S Auction that was held at our Deceaber 
aeeting was extraordinary. It may become an annual 
event. Many good bargains in all price ranges were 
avail- able. Our thanks to all who participated. OQur 
Club even made a small profit on the event 


T/S COMPUTERFESTIVAL 


A Midwest Tisex-Sinclair Computerfest is in the 
planning stages. It will be held in the Cincinatti Ohio 
area. A possible date is the first weekend in May 1986. 
The seeting is being sponsered by the Cinci Users Group 
and others. The Cleveland Users Group will participate. 
Look for more details next @onth in our newsletter and 
other publications. 


BBS’s 


The MicroSysteas BBS in Florida has dropped its 1/S 
sub- board. 
Have you tried the Cleveland Users Groups BBS? 
216-327-1099 
The Cincinati Users Group also has a BBS at 
513-984-8705. 


DISK DRIVES 


In the last sonth or so there has been auch 
discussion on the BBS’s about the pros and cons of the 
various disk drives now available. To ay knowledge 
there are at least 5 DD interfaces available for the 
2068. T/S users have not been used to such a large 


- choice. Our thanks to all of the «anufacturers and 


vendors. However one of the probleas with this 
situation is the lack of standardization of disk size 
and forsat. It will probably take the marketplace about 
12 to 18 months to deteraine a de-facto standard. 
However we will always have the cassette format 
available to us for exchange of inforeation. 


Magazines 


"Your Spectrua," a British publication, has changed 
its name to “Your Sinclair" to reflect its support for 
the QL. 
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I have a very sad announcement. One our newer meabers, NEIL 
ELIAS, just recently sufferd a stroke. I know that we are 


» all very sorry to hear this and hope that he recovers as 


soon as possible! If you would like to send hia a card, his 
address is: 46805 Greenleaf Aves, Parma Hts., Oh., 44130. 
Reil, we are all palling for you! 


LE-L5-LSa= 
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THANKYOU | TRANKY GU 

Twovid Like ta thant att oF 

the members cf both the Feet. 
Bide and West Bidé Greater 

Clevetand Simctsair . Users 

Group rar their HELE and 

etttemdance st cur Christmas 

Party im the Euclidian Room. 

Special thamks ta Tom Jennen=: 
for his help if planning end 
setting up the roar and to: 
Andy Kosiarek for hit his Pine 
Job im hand lins the Ructian. 
Also ali of yeu whe brought 2f 
extra refreshments ana he lred 
set up and take dour erter- 
wards. 

T think what PlEessed Mme most 
is that mo ane Lert early and 
that would seem te indicate we 
had & successful party. 

Leth Looking Farword te ar 
ever better Barty next wear. 
Thanks again 
Gene Wi leon 


This month I got a lot of articles so if you don’t see 
yours, it will probably be in next aonths RAMTOP. Please 
forgive me for getting this issue out late! I have been 50 
busy that wish that I could split into two people so as to 

get all the work done! Shortly I will be taking scse courses 
in electronics and aicroprocessors 50 I eay need some help 
in editing the RAMTOP, Thank you to all of you for your fine 
articles! It was a pleasure serving you last year and I aa 
looking forward to another year of better and better 


RAMTOPS! Somes 4 Li Peg. 
A FREE AD: 
FOR SALE: 2068 and e040 printer. 
Have you been contemplating 


getting a e068 and printer? If so, 
DAVE LUCARELLI Ce&4t3-63e9) has one 
that is in good condition and as a 
bonus the ©2068 has the Spectrum 
ROM with a switch! cS95) 
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OnLine 


eee 


with Eric Yruegas 


oi 
Well, did all of you RAMTOP readers have some Happy 
Holidays? I did. Since this is the first issue of the new 
year, I thought that I'd write about soe "new" things. 


Yo Fon P=0 To 


For one thing, I bought a full-size printer! And with an 
PERCO parallel interface, ay 2069 is now a nice machine. | have 
taken the relocatable printer driver and taken it apart dom to 
the last byte. I discovered a lot. For instance, 1 found out 
how to COPY the screen in single or double density mode. If 
you have an Epson printer, or a DMX-88, or a Panasonic printer, 

-one POKE will change the density of the COPY té any density that 
your printer can handle. If you would like sore information, 
write me, as the process can get coaplex. 


Another thing that you say have heard about is the new 
operating syste called the 0564, This is a cartridge available 
froa either €. Arthur Brown or Zebra Systens. 0564 was 
pentioned in last sonth’s RAMTOP, but I thought that more should 
be said about it. OSé4 plugs into the cartridge port of the 
2868. Flip the power on, and you are in 64 coluans. There are 
no special coamands to learn; you use the sane old PRINT, EDIT, 
and LIST commands that you are used to using. 


LLISTS and LPRINTS to the 2242 printer in 64 coluans, too. 
Also, if you have a printer interface (parallel), such as the 
AERCD, TASMAN, OLIGER, or the A & J interfaces, there is a 
printer driver built-in! Never load a driver froa cassette 
again! OSé4 becoses a natural part of the 2868 systea. It is 
totally transparent to the user. NEW or CLEAR does not affect 
the operation in any way. fs long as you have the 0564 in your 
cartridge slot, you will be in 64 columns, $29.95 in the Zebra 
catalog. 


If anyone out there would like a disasseably of the AERCO 
relocatable printer driver, just drop me a line. I will be 
happy to send it to you. 


fiver the holidays, I was again puttering around ay 
listings box, and I found this: A new character set generator. 
This prograe generates a "pivot" font for the 2848 printer. 
What this means is, you can print sideways to the printer. This 
could be used to print 88 coluans, then you could tape the 
strips together to make a page of text. To use it, POKE 
23686,244 : POKE 23687,258, This will show the pivot font. To 
restore the regular character set, POKE 23606,0:POKE 23487 ,68, 

i Oe 


7 DIM A(€,8):DIM B$(8,8) fe 
18 LET C=PEEK 2340k+25c4PCEK 234074256 
15 FOR J=33 TO 128 ‘ 


28 FOR P=O 107 

25 LET BYTE=PEEK (C+P+(J-32) #8) 
38 LET 1#="BIN r 

35 FOR Lei 108 


48 LET XeINT (BYTE/2)sLET BIT=BYTE*20K: 
LET BYTE=X:LET Z${LEN 7$-4+1)=STRS 
BIT 


5Q NEXT L:LET AS(P+1)=7$(2 TO )sNEXT P 

78 FOR F=1 TO S:FOR N=l TO Q:LET BS(N,F) 
=AS(9-F ,N) NEXT NeNEXT F 

@@ FOR P=8 TO 7:POKE (X+P+(J-32) #6) ,VAL 
("BIN "+BS{P+1)) NEXT P 

85 NEXT J 


T hope you liked that one. Iuse it to print long bar 
graphs. Maybe some enterprising person might take the tise 
(‘cause I ain’t gonna’ do it!) to adapt that to other printers 
that can re-define their character sets??? 


I just bought copy of Tasword a few weeks ago, too. It 
seers to work pretty good. One problea is, when I set the Left 
Margin to 42, the text starts to double-space! =! don’t want 
that! If anyone can help me, please write to me with a 
solution! I can’t figure out how to stop it. 


Well, it’s about time for se to go for this aonth. I have 
other articles to wite. Take care! 


If you have any questions or coments, please direct thea to: 


On-Line, c/o 
Eric Yruegas 
4706 Langley Ave. 
Whitehall, OH 43213 


4: Pore (Cr Pt 30* g) vA Lé 


» BIN 4. 
“(pet)) : 
NEXT 


Thanks Eric for another fine article! 


I hope that all of -you that use 


this 


material or that this is of interest, 
will drop Eric a note or letter! 
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Here is a 
program for 
like a winner! 


yet another 
the 2066. It 
Thanks Gabe! 


1 REM 
EPTTTTFFTFIIFZE 
sHAGNHA-BANNERS 
EFFFTFFFTTFIIF 


BY: GABRIEL SCHAFFER 


banner 


looks 


BORDER @: POKE 23624,6: LET 


FOR i=@ TO 7¢: RERD h 


2 

Q@=255: CLEAR (2562t-769): 
@: 
i NEXT i: 


GO SUB 85: GO SUB 17: 
AGNA-BANNER”: 

a 2: LET ps="4": 
LET ag=z%3ix}: GO SUB 19: 
ys: ae INKEY$<>"" 


S NEXT x: 
PROGRANHMEB JITLE BSRNRER 


eo au 
: POK 


POKE 2 


LET = 


FOR x=1 TO 12 
LET 9%="h": 
LPRINT 
THEN GO TO 9 

4 LET 1? : LET pg="Kh": 
a$=z$(x4+1): GO SUB 19: LPRINT Y 
$: IF INK 3 


LET 


y 


) 


Gabriel Schaffer’ 


E 10@@: FOR 
CG 


,=65 46: GO 5 
B 4125: LET a$=STRE #2: POKE 23652 

,@: G2 SUB 6@: IF INKEYS <9" HE 
N @O TO G: REM LINES 6-9 ARE THE 

MOM 

7 TF a24f THEN LET c=@: LET ¢ 
ga" 
So LEY cS LET e=6: GO SUB 13 
S: GQ SUB 17: GO SUB 19: LPRINT 
=: PRINT a: PAUSE 268: NEXT a: 
EXT & 
CS TF INKEYsS={"°" THEN GO Te S 
REM LINES i8-i7 BRE THE MAIN 
PROGRAM 
18 PORE 22S87,58: INPUT “SIZE? 
{1-163 “ja 
4i INPUT “ENTER TYPE THAT_YOU 
URNT (FOLD .POBDERN TRL ICS, ZEGUL 
AR) “:2%3: LET zS=2%+"2" 
42 INPUT “ENTER YOUR MESSAGE *e 

73% 

423 INPUT “DO YOu UANT ‘YOUR 2a 
SRGE In THE [SENT ER OF THE PRPER 
InN THE FOF GF THE PAPER OF THE 
GettTOas oF JHE PREER?T “7c 

44 INPiT “ENTER PRINT CHARACTE 
Ro “ip: IMPiT “ENTER BACKGROUND 
CHERALRTESR “:¢2<— JnNA& 

a5 IF ag="" GR G="" GR pe="" 
OR a7f2 OR 42:35 OR ic#i2"c" BNE 
Bo3°C" BHD ceia*t" AME ca§<g"T" A 
NO c$<2°7b" AND cg§ie"B") GR izsi: 
“B4" OND z$i3"bt"° AND zB<o"MiI" A 
ND z3<o"mi’ AND 22i->"5i" ANE Zest 
>"E4" AND z$<t9"R2° ANE zsi0e"rFi"} 

THEN GO TQ 5S: REH CHECK FOR . 
INPUT ERRORS 

46 GO SUB iF: GG SUB 4196: 60 TS 
a 
17 LET zat} zs: 62 BUB Zz: GA 
> PUKE 2EGOQ2,.2: LET va INT ttar 
4}4i(1 PND a<3?4 AND 2422 AND acti 
2 AND 24346313: FF tca<3"b" RAND c 
$439"B") AND a<it THEN LET e=3e-1 
VEES1- IF tce#a"c" OR cS="C") BHD 
#2i{43 THEN LEY e=2-tere) 
42 RETURN 
49 LET cgi"": FOR d=1 TO €: LE 
T cCe=CS4" "2 NEXT d: LET h#=g3t2 
): LEP .q$=p%itil: FOR v=3 TO ¥Vo-i 
: LET 9%=9%+hS: LET pPH=p 3498: HE 
xT ¥ 
28 FOR gs3 TO LEN 3: REM 
LINES 19-45 ARE THE BREHIFY Sus 
BL LET ca=PEEK 22605: RPOKE 225 
OR, INF {carv3)}28: PRINT AT 2£3,8;4 
$ijl: LET x$="": PORE 23605,c0 
33 REM x$=THE VRRIABLE THRT 
THE MRENIFIED CHARACTER I5 , 
i 


38 FOR c=8 TO 7: FOR -=8 TO 7 

35 IF POINT ({(c.f)=1 THEN LET x 
=x Sep: CO TO 45 

48 LET x3=%5+¢% 

45 NEXT fF: HEXT c: PRINT AT @, 


"47 REM FRINT sus 


58 LET mpdxv2e¢44: LET s=¥228: 
LET gi=s2254: LET gi=s-i: REM 


SET VARIABLES FOR PRINTING 


MAGNA - BANNER 


SS FOR g=i Ta gf STEP s: FOR n 
=i TO n@-as: LERINT cai; x89 TO 9+ 
3): PRINT c; x5{3 TO 9493): NEX 


Ton: NEXT 9: NEXT J: RETURN 

S57 REM RONDON BRCKGROUND & 
PRINT CHARACTERS FOR THE PERC 

68 RANDOMIZE @: LET c=INT tRND 
$3): GO SUB 18@: LET 9=INT iRND2 
26): LEY g$=CHRS (9432): LEY p= 


HRS (9454}: REFUR 

G3 REM EXTRA TYP 

iFPROM:ALIGUST Tosu 
medified} 


ri rT ae 


TYLES SUB 
oF RANTOP 


65 PORE 23687 69: RETURN 

66 LEF typs2: POKE 23616,60: 
QKE 23619,8: PORE 25628.2 

67. LEY typ=i: POKE 23612,68: P 

KE 23649,@: PORE 20628.2 


S@ LET tup=8:. RANDOMIZE USR (t 
Of gs25842-typ:: POKE ,236ea7,tar¢- 
4: RETURN ——— 

7@ LET torg=255: LET r=65: LET 

rizr. LEF b=66: LET bi=b: LET m 
-<S7: LEF mism: LET i=68: LET it= 
i: REM UARIABLES FOR TYPE STYLE 
LINE NUMBERS 

75 RETURN 

29 SATA @,8,121,283,30,289,32, 
5¢,21.255,: 4, @,51.17,8,terg-3 

SB DATA i 18,5, 226 24,48, 283,53 
.24,44,250,112,24, 37 ,121,238,7,2 


63,239, 58, 40,255,126, 24,30,24,23, 
24, 16,24, CA eee 24,28, 24, 13,24 
12,208, 63,203, 63 cre 18,283, 39,29 
Ss 30 ,24,4,433,293 ,3¢,1382,18, 35, = § 
9,11,128,1377, 32,166, 281 
Q2 REN HOCHINE CObE FOR EXTRA 
TYPE STYLES 


O65 Ser 235°": 
#15: Let ie" 
< 


pe I a oe om ae 
32iS: RETURN : REF INETRLIZE 
PROGRAMMED BANNER UVUSRIABLE 

G7 REM C$=UHETHER TCO PRINT GN 
THE BOTTOH,THE TGP GR THE CENTER 
OF THE PAPER 


300 LET c#=i"b" RAND c=8)4t"C" AF 


HD c=4341°t" AND 
185 RETURN : REN 
CENC 


41@ REM &=HUHETHER TO HRVE BOLD. 
MODERN, ITALICS GR REGULAR PRINT 
FOR THE SEMO 


445 LET z$=("ri" AND &=65)4+("b2 
“AND £=66)4i"miv GND k=67)40"il 
* AND £=63) 

12@ RETURN : REM SET K FOR THE 

DEMO 


425 GO SUB bi: PRINT Hi;AT @,34 
; "DEMO": GG SUB ri: RETURN 


NOTE: 

In your 
message, you may use ANYCharacte 
rs that yau want-even graphics 


characters! 


PRINTING TRUE CURVES AND FIGURES 
WITH TS 2040 PRINTER 


BY OLEG D. JEFIMENKO 


Have you ever tried to copy 
drawings from the monitor screen 
with your 2040 printer? If you have, 
you know that the printer does not 
reproduce them correctly: circles 
become ellipses, squares become 
elongated and distorted, angles 
betweent slanted lines become 
enlarged or reduced. The reason for 
these changes is that 2040 printer 
uses a pixel grid with rectangular 
rather than with square cells (the 
original Sinclair printer used a 
pixel grid with square cells). 

A simple adjustment of your PLOT 
or DRAW statements will produce 
geometrically correct prints of all 
curves, shapes, and patterns. All 
that you need to do is to divide the 
variable part of the x coordinates 
in the PLOT or DRAW statements’) by 
the “aspect ratio," A=0.82, or to 
multiply the variable part of the y 
coordinates by the same ratio. The 
effect of such an adjustment can be 
demonstrated with the following 
examples. 

Program 1 (TS 1000 or 1500) draws 
a diagonal square on the monitor 
screen. When the square is printed 
by using the COPY command, the 
printer changes it into a "diamond," 
or rhombus (Fig. 1). 

Program 2 draws the same = square 
but incorporates the aspect-ratio 
correction. The print is now a true 
square, although somewhat distorted 
because of the low resolution of the 
computer (Fig. 2). Incidentally, the 
expressions placed in parentheses in 
lines 20-50 of Programs 1 and Z are 
the variable parts of the x and y 
coordifiates. The constant parts are 
the coordinates of the center of the 


square, x=31 and y=21. As mentioned 
above, only the variable parts need 
to be adjusted in order to produce 
correct prints. 

Program 3 (TS 1000 or 1500) draws 
a circle on the monitor screen. When 
copied by the printer, the circle 
becomes an ellipse (Fig.3) . 

Program 4 draws the same circle 


' ornamental 


Th 
4) 


corrected for aspect ratio. 
print is now a true circle (Fig. 
Program 5 (TS 2068) draws 


slanted equilateral triangle on th 
monitor screen by using a DRA 
statement (the same triangle can b 


drawn by using a PLOT statement, bu 


DRAW is much faster). The. printe 
copy of the triangle is badl 
distorted (Fig. 5). 

Program 6 draws the. same triangl 
corrected for aspect ratio. Now th 
triangle is equilateral, as i 
should be (Fig. 6). 

Program 7 (TS 2068) draws a circli 
by using a CIRCLE statement. Whe: 
copied, the. circle . becomes a 
ellipse (Fig. 7). 


Program 8 draws the same circle b: 
using .a PLOT statement with aspect- 
ratio correction (there is no way t« 
use the aspect-ratio correction wit! 
CIRCLE statements). The printed cop: 
is a perfect circle (Fig. 8). 

Naturally, you cannot use the same 
PLOT or DRAW statements to create «| 
correct drawing both on the monito: 
screen and on the printout; one o1 
the other will always be distorted. 

What happens if you incorporate 
the aspect-ratio correction into the 
y coordinates rather than into the 3; 
coordinates? . Remove the division by 
0.82 in the above programs anc 
multiply the variable parts of the y 


coordinates by 0.82 instead. The 
printed copies will be correct 
again, although smaller than before. 
For this reason it is usually safer 
to incorporate the aspect-ratic 
correction into the y coordinates: 
since the drawings become smaller, 


there is no danger of running out of 
screen when the correction is made. 
As the final demonstration of the 
aspect-ratio correction, examine 
Figs. 9 and10. They show the two 
designs created by Ted 
Knyszek (RAMTOP, December 1985, p. 


3) corrected for aspect ratio. The 
original shapes were elliptical; the 
corrected ones are circular. The 


correction was made by using x/0.82 


instead of x in the DRAW statements 
of the original programs. 


Thanks Professor Jefimenko! This is quite an extensive 
article! 


py “Old 
CE PN & 
E- Aad oF 
EFL TPs T{ee° « 
1 Medea as 


41 LXEN ag 
#TEtTS'e2S'/l sogeTZ+te 
ey Te/t dais Id#z@ OL @=1 YO4 at 
é£T fbud @@ we 
TOP 404d aT. °° 


i WIS 
& 101d 02 


@ Old 
* L¥SN as 
X-TS' Ea’ (X-TZI-TE Todd as 
(x-Tei+Te'ce*-x-TE Land af 
X+TS! sO"? (X-TZI+TE 101d af 
(X-TEi-Te’ee'/xt+Te Lond az 
Te GL @=xX HOS aT 
a oe 8 ps 
; 1 3 2 a : 3 a 28 
rs ' Lv i = = ae = *, 
aoe 4 ; = 8 “ ” 2 
7 | a = 
ra \ mal = ae 
Hi , a z *., 
PZ 4 3 2 = 
fo ‘ | = ‘ * 
¥4 A ‘ . ma : x 
a ' I *, | 2 
Ps \ : at = 
/ \ x a 
rs \ 3 *, ; na 
ee \ g *s * 
a oe H 2 = 
ae \ ", = . a = id 
ch \ *. = . =, es? 
ica ee \ *. = ae el a= re) 
Hy 2 == 
GS ‘Old oa | ‘Old 
2@T/Id) NIS#PLT‘¥2T~ hued ar € old %. IXGN 09 
‘((BT/Id) ures See hag Guar a Bit 8 1 IX3N ac -T2‘ (X-TZ)-Te Loqd as 
p2t-"(8t/Td) NESESey RoHS ee “i (X-Te)+T2*x-TE Loqd a 
PZT OP Lond oe NISsTa+tT2* 1 SODFTZ+TE Lota az X+T¢e" (X-TS)+TS 104d as 
at Te/T dais Idt2 OL @=1 YOd at X-T@)-T2°xX+TS lod az 
; ‘ Te OL @=x 
- 2 ee aye a ee, : . 
Bs ee ns a. 
ae py 
f | . 
v4 / 
# \ 
/ 1 
ca | 


yuo4 at 
ts 
: ‘, 
| | | 
/ 
/ 


- | *, 
i *, = 
aK \ F i. - 
| . sf OF 
eo ¥: 


4 i XK 

| \ / ‘. 

{ \. é on 

* Pa Re 

a nae = 

i OPW ae oe ee 

! @ CIRCLE 128,87,87 1@ FOR T=O0 TO 2sPI STEP 1. 
| Roce og eee BO PLOT 1284+272C05 Ty.82, 
| : *5IN T 

| 38 NEXT T 

FIG. 7 

) FIG. 8 


a ee ee er 


18 LET X=SQ4SIN (AgPT7139) 
‘ =3Q25 (AEPIs13¢ 
28 LET Y=8@2C0S (AzPI/180) 20 LET LI=402 


48 FOR I=1 TO LI 
58 LET X=a5ec0s A 
6@ LET Y=853SIN A 
78 PLOT 128,85 
FIG. 9 BO DRAW X7.82,7 

; 98 LET A=A+ANG 
1088 NEXT I 


25 PLOT 128,87: DRAW X/.82,7 30 LET A=0: LET ANG=2#PI/LI 


S@ NEXT A 
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January Editorial 


Hello to all! Hope you had a 
very happy New Year! Sinclair and 
Timex still lives and this year 
looks to be quite interesting. I 
had a great time at the December 
meeting/auction/party and I hope 
you were able to be there. It was 
one of the largest meetings that I 
have seen. There was a bit of over 
kill on the refreshments but I 
know I did my part to help cut 
them down! I sincerely hope this 


becomes an annual event. Last 
month I. mentioned using Tasword 
and sending your articles on 


cassette. I got several articles 
this way and let me tell you, it 
is a BIG help! It cuts down on the 
retyping and allows me to print it 
in whatever size will fit the 
space. 

I was looking through the 
files and found that there are 
quite a few of you that are due 
for dues! Please remember that 
your DUE date is printed on the 
address label in the upper right. 
I have a list here of those due 
From 11/01/85 through 02/01/86. In 
this new year we are going to 
strive to keep within our budget 
so that we can keep the club in 
the green and not the red! Last 
October and November things looked 
pretty tough but thanks to one of 
our newer members, AL GEDRIS, we 
are curbing the cost oan the 
printing of the RAMTOP. In this 
new year we will have to stop 
sending you your newsletter if 
your dues fall behind more than e 
months. Take heart though, If you 
Fall behind and you don’t get one, 
we will have some extras at the 
meeting for $1.50. 

Our treasurer, Bob Parish, has 
done us a great service by taking 
the time to figure out the Master 
File program and configure it to 
work for the club membership and 
to print labels and reports. If 
you need a copy of the membership, 
Feel Free to ask me for it. I also 
must report that Bob just 
purchased a Tandy 1000. He 
therefore, he will be selling his 
2068 as well as all the goodies 
that he has for it. These include: 
a 204O printer, a e050 modem, 


a Taxan 210 RGB color monitor with 
the complete sudio output. His 
2068 has a Spectrum ROM with the 
suitch, RGB board, a reset button. 
and a power indicator. He wili 
also give with it all his software 
and books which is worth quite & 
lot! He is asking $400 For the 
whole thing or Se50 for all bu 
the monitor. 


He also has a TI 39 ‘“-A wit! 
13 cartridges, a voice unit, and 
lot of software. He is als 
including the cables, and a pai 
of remote joysticks. c$e00) If yo 
are interested in either system 
give hima call at:671-6S9ec. 


He tells me that he will stil 
be an active member and remain th 
treasurer. He is still is and wil 
be in the future, interested i 
Timex and Sinclair computing. 


USER’S GROUP MEMBERSHIP DUES LIST 
Gillespie, Doug cvevavpineaseass BOLbere 
Hughes, Dave sebendeaveeses® » BS/11/0 


Robertson, James ach os desiereleineese aS/i1/¢ 
Shea, Bill se dba eeeee seen BS/ 11/1 
Shaw, Brian Pickle csasscevaee corlast 
Banasik, Paul pagent ene Ceueneeeolaar 
Burns, Dan ssdeeeseaveseecss B5/12/( 
Cosari, Helen 
Csicsila, Mell 5 Ds c waderounuee Bol bel 
Delaney, Ralph seceeeeseeeess ee B5/12/ 
Green, Arthur sia secede Seeieea ee 85/12/: 
Knyszek, Ted 
Lucht, Clarence aiiweseseeessie . 85/12/ 
McCabe, Don ttt i iianedeues BOTLes 
Nordquest, David siisncbcuacteagenmoltee 
Sieg, Dick iindteleussearse-ereel 
Sigon, Thomas 
Turk, Theodore 
Wisnoskey, Richard 
Singelton, Ray 


eavdvassenwases: Ballet 
scagisscarenenne Colter 
sduasessepeciiee; Salle! 
Jefisenko, Oleg iVisvaee 
Fliegel, Andy Jideqsaeanawine BOrul >: 
Gill, Tisothy oe cepapasanceee MMOs 
Lavergne, John 
Radloff, Toby Scagkaciewndwaee: Poluel 


If your name is on this list 
please send your check for $15 c 
$7.50 to Bob Parish, 12706 Leeil 
Ave., Cleveland, Oh, 44135. 


Here 18 anotner ikA program rrom PRINT x; TRE Sizer my 
tom oe oe mali wot Soe ee 6 
Max Schoenfeld. This is an NEXT x 
improved version of Max’s er ae. anh 
; FOR xsi Ta Cc 
previous IRA program. LET tated (x) 
HEXT = 
; PET t (INT (2@G@et+.5)) 100 
roo PFUTSITEL de t= 4T of AFt¢. 5) 3 Hae 
ape Reyes TieS PRINT "Tetal Pay-cut is "5 
Previously we presented & 
erogram to Calculate and dis- 
tc.aa othe Fay-cut af an IRA 
secount, cequiring thet the se proarg i Rive the 
anmuasl pay-out be uniform. That ieee eee ee % DPaaae . 
ig one of four permissible meth= etarting amount, assuming & .@35 
Odi of disbursing the Fund2. Tt rete of interest for a pericd 
The following program dern- 
oretrates 2 second methed, Year Pay-cut Balance year end 
called "period certain aption. 
Assifi, the Pay-cut period may i 18905 28E05 
net exceed the Life expectancy 2 4199.83 21562.45 
ef the account holder, but can ¥ 3 1312.93 22319.é5 
be a Lester perictd. Take 2a 4 1437.66 23e82.55 
ueare a2 2% ExNaMPLE. Then the = 1574.2 23613.56 
firet years dittribution is 6 1723.79 24133.05 oe 
found be dividing the account 7 1887.55 24538.17 be 
balance py 28. The mext Year, & 2266.87 24802.45 ee 
divide by 12, then 1é, afd £0 o 2265.22 2asees5.4a4 Pe 
OTi.s 18 Ba7G.23 24702.25 x 
a 2713.66 24422.93 
Lie won't @o inta the ather 12 2oa71.4¢6 23771.65 
tuo methods, "Lume sum daesn’t sO S253.75 Se776.2e2 
meéd = Eragram - and besidét., id aS562.85 P1is77.ii 
taking aLL the money out the 25 3901.32 4956.61 
firet year is. 2 Poor decision 16 4271.95 17887.79 
tax-Wwise. The last cptican, i? 4077.75 14833.35 
“adjusted pericd certain 18 Size.1i7 18244,34 
option’ aif fSimitar ta the Pro- ag s6a0.78 Ss600.78 
gram below, but you recalculate ee 6141.61 & 
els Life expectancy each Year. 
hue gtretching out & ra] re ok 7 aos 
time. Pos} program oe Re ee on Total Pay-aut if & S9263.654 
would have to aincarporate the 
Life expectancy Etatistical 
tables. Here are some nice short programs 
its a for the 2068. They wer sent to me 
Sie. aes from Everett Pence. Thanks, 
14@ REM "IRA PCO” Everett! 
Pa REM Period Certain Option 
25 REM - bu Max Schoenfeld 4 
10a hae “"linat if the beginnin a 
g amount? “34 Nat 
“a4@ INPUT "What is the assumed 1 REM Perper eee i 
; rate af interest? b 2 FO = vere ence 
1P@ INPUT “How many years to Pa 19 FOR a=@ TO 175 STEP 2 
ug But? “Ze —2@ PLOT a,a: DRAW 255-ak2,0 
430 PRINT “This pregram will gi 3Q DRAW @,175-ak2: DRAW -C€255- 
ve the anmubet BPay-qut For 0aX2),0 
seve etarting amount, ass 40 DRAW @,-C175-ax2) 
uming a Pee ec cr anterest, fF 5Q@ NEXT a 
cr # peris af “j;o;" wears.” _ 
igs PAUSE 2ee@: cis’ 108 FOR a=@ TO 175 STEP 2 
a50 PRINT. "Year"; TAB 5; "Pay-out 118 PLOT a,a: DRAW 255-02; 8 
“STAB i6; "Balance wear end" 120 DRAW Q@,175-ak2: DRAW -(255-— 
2Q@ CIM di2ea) aX2),@ ; 
225 PEF FN jidi ssef1+b) 132 DRAW @,-C€175-axk2) 
25@ LET dt1)=FN jtiiec 14@ NEXT a 
B51 LET dt L)=tINT (10044 (11+.5) 500 FOR a=175 TO @ STEP -2 
7180 A 
455 PRINT AT 2,0;1;AT 2,530 (4) 218 PLOT a,a: DRAW 255-a%2,8 
256 LET Z=aFH GU {Li-dit2} 228 DRAW Q@,175-ak2: DRAW -(255- 
S57 LET z=(INT (1@8#2+.5)) 7100 ax2),0 
258 PRINT -AT_2,17,2 238 DRAW @,-(175-ak2) 
260 FOR xwz TO ¢ 24@ NEXT © 
270 LET a=FN Jjtxiedix-1) 3958 GO TO 10 
SSG LET dix} =FN JtxyreCc-x41) 
HeL LET z=dixi ‘ 
ZBE LET z=tInT (1884z24+.5)1) 7108 
2a5 LET veFN J ixi-d (xi 


rem ERS FE Ta 


ae eet - ee oe ee 


« 


1>REM Tower of Hanoi: Move 28@ GO TO ga 
all the disks €1-5) from #1 to # 388 PRINT "you did ito" 
33 a smaller disk can rest ona 320 PRINT “tn "St3" moves" 
larger one ex. 542 but not a 330 PAUSE @ 
iarge one on a small one 9324. 34@ RUN 
Input row to move from, then row 36@ PRINT ? "You cheated" 
to move to. Good Luck 9 : 378 PRINT "you lose" 

‘5 CLS 398 GO TO 33a 
; ac DIM a$C€3,6): DIM a3): LET oe 


40 LET a$C€1)="54321-" 
38 LET a$(2)="------ " 
68 LET a$(€3)=a$(2) 

7@ LET aC1)=5 


= 1 REM Moire designs by: 
8@ PRINT AT 8, 0;"Move-" jt 


EVERETT PENCE 


38 PRINT 2 INPUT "What step do you wan 
108 FOR a=1 TO 3 "jstep : 
? OVER 4 


11@ PRINT a$Ca);TAB B"H" oa 
PRINT 


13@ NEXT a 
-.140 IF a$(€3)="54321-" THEN GO T 
0 296 
peer PRINT “from': INPUT a: PRIN 
a 


_4+88 PRINT “Los INPUT be PRINT 

D 

200 LET t=t+] 

228 LET alb)=alb)+1 

230 LET a$Cb,albJJ=a$la,alal) 

248 LET a$Ca,alajj="-" 

258 LET ala)=ala)-1 

260 IF aCb)<2 THEN GO TO go. 

278 IF a$(b,alb))>a$lb,alb)-1) 10 
THEN GO TO 35a 


18 FOR a=@ TO 255 STEP step 
20 LET b=255-a 

3Q@ PLOT a,175: DRAW D-a,-175 
4Q NEXT a : 

50, FOR a=@ TO 195 STEP step 
68 LET b=175-a4 

73 PLOT’@,a: DRAW 255;,b-a 

@ NEXT a 


From: 

TRE GREATER CLEVELAND SINCLAIR USERS GAGUP 
James G. DuPuy (Editor) 

6514 Bradley Ave. (Down) 

Parma, Ohio 44129 


FIRST CLASS MAIL 


